;redcode-94
;name	F7
;author	Flox

	ORG	SCR
CORE	SPL	0,	0
SCR	JMZ.A	0,	<-1
	SLT.AB	#13,	-2
	JMP	DATE,	0
	MOV	CORE,	@CORE
	JMP	SCR,	<CORE
DATE	SUB	#13,	CORE
	SUB.A	#5,	SCR+2
	SPL	SCR,	0
	MOV	DOWN,	DOWN+1
	SLT.AB	#-2,	-1
	ADD	#5,	-2
	JMP	-3,	>-3
DOWN